非常风气网www.verywind.cn
首页
excel vba 高手
学习
excel
必须学习
vba
吗?请指点迷津
答:
3、高手的境界。所谓高手。又是心态!学习VBA越是到后面,越是觉得自己缺乏相应的知识,越是觉得自己的不足。那种种喜欢去炫耀自己本事的人永远达不到最高境界;永远没有最好的高手,只有更厉害的高手。
VBA高手
,你真的是高手了吗?如果你会.NET开发语言,会VSTO,会ASP.NET。能够开发出完整的应用...
请教
Excel高手
我想问怎么修改
VBA
让录制的宏在运行时首先自动指定到A列...
答:
录制宏的功能是什么?在录制的宏源程序里修改程序运行的起始行列就可以。只要不运行宏程序,你的工作表内容就没问题,就算不小心运行了 ,只要不保存也没事。
EXCEL高手
请进,求
VBA
代码,处理一个统计的问题~~~
答:
我明白你的意思了,修改代码如下:Sub 统计()Dim Arr()zifu = "正正正正正正正正反"For i = 1 To Sheet2.UsedRange.Rows.count If Cells(i, 1) = "正" Then k = k + 1 Cells(i, 6) = k Else Cells(i, 5) = k k = 0 End If Next m = 0 s = 1 ReDim Preserve Arr(...
excel
vba
统计(B5:k14)显示看到内容的单元格的个数(求
高手
)
答:
Sub CountVisible()Dim i%, S%, N N = 0 With ActiveSheet For i = 5 To 14 If .Rows(i).Hidden = True Then Else S = Application.CountA(.Range(.Cells(i, 2), .Cells(i, 11)))N = N + S End If Next End With MsgBox "非空值单元格" & N & "个"End Sub ...
Excel高手
用
VBA
解决最大连续次数
答:
Sub test() Dim i, n, j, m As Integer i = [a1]'假设是 A 列 n = 1 m = 0 For j = 2 To ActiveSheet.UsedRange.Rows.Count If i = Range("A" & j).Value Then n = n + 1 Else i = Range("A" & j).Value n = 0 End If If...
高手
来这里!在
excel中
,如何编写
VBA
程序,使单元格内填满8位数
答:
选择单元格,格式——单元格——数字——自定义,在类型栏输入“00000000”(即8个0),确定。
请
高手
帮忙编写
EXCEL
VBA
程序,跨工作簿查询并返回数据
答:
Private Const DirPath$ = "C:\" '指向查找的路径 Sub aa()Dim Filename Dim i& Dim Wb As Workbook, Rng As Range Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next With Worksheets("总表")For i = 1 To .[B65536].End(3).Row If Len(....
哪位
高手
可以编写一段
VBA
代码帮忙解决一下,
Excel
一片区域中提取出相同...
答:
这里只序号10行10列,代码只参考啊 Sub test() Dim i As Long, j As Integer, max As Double max = Val(Cells(1, 1)) '把A1的值给max,然后在找最大值 For i = 1 To 10 For j = 1 To 10 If Cells(1, 1).Interior.Color = Cells(i, j).Interior.Color Then...
烦请
高手
帮忙解决
Excel中VBA
的SolverReset的代码问题,谢谢啦~
答:
使用函数之前,必须建立对规划求解加载宏的引用。让
VBA
模块处于活动状态,单击“工具”菜单中的“引用”,然后选中“可使用的引用”列表框中的“Solver.xla”复选框。如果“Solver.xla”未出现在“可使用的引用”列表框中,单击“浏览”并打开“\Office\Library”子文件夹中的“Solver.xla”。引用后,这...
excel中
用
vba
报438错误,
高手
指点下
答:
是的,我在运行
VBA
程序时,也出现过此类情况,但是把窗口关闭,再次重新打开,再试,就没有这个问题了 下记是无错的代码。Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.EntireRow.Interior.ColorIndex Then Target.EntireRow.Interior.ColorIndex = 10 Else Target.EntireRow....
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
你可能感兴趣的内容
本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
©
非常风气网